home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Control Panel Hide 9.xpl < prev    next >
Text File  |  2001-12-25  |  4KB  |  114 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Appearance\Control Panel\OEM Icons"
  5. "NAME"="Visible OEM Items #3"
  6. "VERSION"="2.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Display "EppieDesktop" applet"
  9. "TEXT 2"="Display "Rei's More Extensions" applet"
  10. "TEXT 3"="Display "TweakAll" applet"
  11. "TEXT 4"="Display "Startup" applet"
  12. "TEXT 5"="Display "Window Blinds" applet"
  13. "DESCRIPTION 1"="This plug-in can be used to hide or show the different applets inside Start -> Settings -> Control Panel."
  14. "DESCRIPTION 2"="Rei's More Extensions gives more options to Windows' extensions and is available at http://plaza27.mbn.or.jp/~satomii/"
  15. "DESCRIPTION 3"="EppieDesktop can be used to change the image of the Start button and is available at http://www.simtel.net/pub/pd/10770.html"
  16. "DESCRIPTION 4"="The "Startup" Control Panel applet can be used to show what loads on startup and remove things you don't want. It's available at http://www.mlin.net/StartupCPL.shtml"
  17. "DESCRIPTION 5"="Window Blinds is available at http://www.windowblinds.net/ and allows users to change the way the Windows graphical user interface looks."
  18. "AUTHOR"="Xteq Systems"
  19. "CONTACTURL"="http://www.xteq.com"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"="Special thanks to Maxwell (maxwello@hotpop.com) for his brilliant tips and CptSiskoX (CptSiskoX@flashmail.com) for his help."
  22. "COMMENT 2"="Thanks also to Ojatex@aol.com [http://users.aol.com/ojatex/laptop.htm]."
  23. "COMMENT 3"="Thanks to chris friday [fridaychris@yahoo.com] for the EppieDesktop broken link notice."
  24. "COMMENT 4"="More information: MS KB Q207750"
  25.  
  26.  
  27. '******************************************************************
  28. '***                COPY !!!! ONLY EDIT LINES BELOW!!!!        ****
  29. '******************************************************************
  30. sVals=Array("epshell.cpl","moreshex.cpl","TweakAllCPL.Dll","Startup.cpl","wbcpl.cpl")
  31. '******************************************************************
  32. '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
  33. '******************************************************************
  34. sPath="HKCU\Control Panel\Don't Load\"
  35. sFile="CONTROL.INI"
  36. sFileSec="Don't Load"
  37.  
  38.  
  39.  
  40. SUB Plugin_Initialize
  41.  for i=0 to UBound(sVals)
  42.      Call ReadIt(i+1,sVals(i)) 
  43.  next 
  44. END SUB
  45.  
  46. Sub ReadIt(ITM,VAL)
  47.   If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  48.      'old (win32 1/2) INI style...
  49.  
  50.      s=IniReadValue(sFile,sFileSec,VAL)
  51.      if len(s)>0 then
  52.         Call SetUIElement(ITM,false)
  53.      else
  54.         Call SetUIElement(ITM,true)
  55.      end if
  56.  
  57.   else
  58.  
  59.      s=RegReadValue(sPath & VAL)
  60.      if IsEmpty(s)=true then
  61.         Call SetUIElement(ITM,true)
  62.      else
  63.         Call SetUIElement(ITM,false)
  64.      end if
  65.   end if
  66.      
  67. End Sub
  68.  
  69. 'Called when the Plugin should validate the Data the user has entered
  70. SUB Plugin_CheckData(ElementIndex)
  71. END SUB
  72.  
  73. 'Called when the Plugin should apply the changes
  74. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  75.  for i=0 to UBound(sVals)
  76.      Call WriteIt(i+1,sVals(i)) 
  77.  next 
  78.  
  79.  Call IndicateSettingChange()
  80. END SUB
  81.  
  82. Sub WriteIt(ITM,VAL)
  83.  b=GetUIElement(ITM)
  84.  if b=true then
  85.     'Display it
  86.  
  87.     If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  88.        'win32 1/2
  89.        Call IniWriteValue(sFile,sFileSec,VAL,"")
  90.     else
  91.        s=RegReadValue(sPath & VAL)
  92.        if IsEmpty(s)=false then
  93.           Call RegDeleteValue(sPath & VAL)
  94.        end if
  95.     end if
  96.  
  97.  else
  98.    'Hide it
  99.    
  100.    If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  101.       'win32 1/2
  102.       Call IniWriteValue(sFile,sFileSec,VAL,"no")
  103.    else
  104.       Call RegWriteValue(sPath & VAL,"1",1) 
  105.    end if
  106.  
  107.  end if   
  108. End Sub
  109.  
  110.  
  111. 'Called when the Plugin is about to be removed from memory
  112. SUB Plugin_Terminate
  113. END SUB
  114.